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H 12 
15-Sep-1984 23:47:09 VAX-11 Bliss-32 V4.0-7 1) 
1228 08= 138 93:35:98 DISKSVMSMASTER: th i’ sre CHMCHGC.BLI;1 fage MM), 


MODULE EDTSCHMCHGC ( ! Change case 


seen = 'v04-000' : 
a 


35 ZTITLE "EDTSCHMCHGC = change case’ 
e: CHMCHGC.BLI Edit: JBS1007 
004 


! 1-005 - Change the alphabetic test Logi Jes. 19-Jul-1982 
: ee 4 - New screen update logic. JBS 1§-sep 


- Add condiatonnls for WPS and VT 20°ou abe HE JBS 10-FEB-1983 


H ; : 
ss | : 
: 5 2006 : BEGIN : 
: § 0007 ; i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeneeeeeneeeeeeeee : 
$ ie * 3 
; § ied 1 '® (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
3 10 10 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
4 ‘} Bets : a ALL RIGHTS RESERVED * é 
° . & Ps 
3 ig oOig 1 !* THIS i icche ss FURNISHED UNDER A LICENSE AND MAY BE USED AND copree * : 
$ 14 0014 1 !* ONLY IN ACCORDANCE WITH THE MS SU CENSE AND WITH THE * 

3 15 0015 1 !* INCLUSION OF NE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR HE e 

4 16 B98 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 17 001 1 i* QO PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 + Bas : TRANSFERRED. - 

3 ! * 

; $0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE « 

; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 

: $$ 5058 : :* CORPORATION. . 

: 24 OOSe 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

P4 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3; & 0026 1 !* “ 

ee 0027 1 !« * 

: ss ones : eaten ihn ainatean 

; $6 0030 1 | 

iH 0031 1 !++ | 

; § it | FACILITY: EDT -- The DEC Standard Editor 

: 34 0034 1 | ABSTRACT: | 

;: 0035 1! 

; 2 0036 1! This module executes the change mode commands | 

: 38 $44 ! CHGC, CHGU, and CHGL. 

: io st } ENVIRONMENT: Runs at any access mode - AST reentrant 

an 0041 1 ' AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

$ $§ 9k 4 1! 

: & 004 1 ! MODIFIED BY: 

H 44 044 1! 

; 5 045 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 

: 6 0046 1! oxtrecting the routine PROCESS CH ches from routine CHANGE.BLI. 

: 67 0047 1! 1-002 - Bequior ze headers. 48S 1981 

s 68 0048 1 ! 1-005 - Fix module name. JBS 5 fora 1981 

; «649 1 } 1-004 = Use the ASSERT macro. JBS 01-Jun-1981 

50 :  I- 

: iz 

: i: 

H 1 
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EDTSCHMCHGC = change case 
Declarations 


ooo fololololololo! 
San SSSSSSSSSSE 
SOooooo°oo FUSS 
CONAN WN | O ODNAUSWINAYV EWR "ODOWONOu 


Pot ttt tts 
PUPS 


o 
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fs as — 2s = 2 8 = ss = a ts a ee ss 2 as 1 1 ss te 


XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSCHG_CAS : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
LIBRARY ‘EDTSRC: TRANSLATE’; 
LIBRARY ‘EDTSRC:SUPPORTS'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE : 
NONE 

EXTERNAL REFERENCES: 
In the routine 


12 
1F-Sep-1986 25:47:09 


47 
p-1984 12:22 


! Process the 


32 PE het 6 Pa 
R:CEDT.SRCJCHMCHGC.BLI;1 


changecase commands 


2. 
(2) | 


12 
ER TOR INCHGC EDTSCHMCHGC = change case 15-Sep-1964 $3:42:08 VAX-11 Bliss-32 Tht os Page 3 
v04-000 EDTSSCHG_CAS = change case 14-Sep-1984 12:22: DISKSVMSMASTER: CEDT.SRCJCHMCHGC.BLI;1 (3) | 
: 3? $67 } ZSBTTL "EDTSSCHG_CAS = change case’ 
x 7 665 1 GLOBAL ROUTINE EDTSSCHG_CAS ( ' Change case 
; of 1 FC, ! first character 
3; OT 667 1 LC ' Last character 
; #«498 0668 1 ) : NOVALUE = 
; 06 1 
: 100 670 1 S44 
5 13) 638 : FUNCTIONAL DESCRIPTION: 
; 108 0675 1! This is the processing routine for the changecase commands. 
; 104 674 1! This routine is called by the process Lines command 
; 105 675 1! for each Line of the selected text. 
; 106 0676 1! 
: 107 0677 1 ! FORMAL PARAMETERS: 
> 108 0678 1 | | 
; 109 0679 1! FC First character position to process 
; 110 0680 1 | | 
; 6111 0681 1! LC Last character position to process | 
3 Vig 0682 1! 
3 43 0683 1 ! IMPLICIT INPUTS: 
3 6116 0684 1! 
: #6115 0685 1! EDTS$G_CAS_TYP 
; 116 0686 1! 
. Hr 0687 1 ! IMPLICIT OUTPUTS: 
3; «118 0688 1! 
: «6119 0689 1! NONE 
: 120 0690 1! 
g Vey 0691 1 ! ROUTINE VALUE: 
s Ye 0692 1! 
3 Veo 0693 1! NONE 
: 124 0694 1! 
s Yes 0695 1 ! SIDE EFFECTS: } 
3 1$6 0696 1! 
Star 0697 1! NONE 
: 128 0698 1! 
: 129 0699 1 !-- 
; 130 0700 1 
s 350 0701 2 BEGIN 
s 32 b7 08 
s 735 Lt 070 Z1F_ SUPPORT_WPS 
3 «134 0704 ZTHEN 
3 335 0705 
; 136 8706 EXTERNAL . 
3 3 th 14 EDT$$G_CAS_TYP; ! Type of case change: invert, force upper or force lower | 
3; 139 ore ZFI 
3; 140 710 
> 141 L 0711 2 ZIF SUPPORT_VT220 
: 146 ar) XITHEN 
: 16 71 
3 (1446 714 EXTERNAL : | 
: ye at EDTSS$SB_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE]; ! Information about characters 
: 149 a9 IFI 
: 148 ay | 
; 149 071 LOCAL 


12 
EDTSCHMCHGC HMCHGC = change case 18-56 -1984 23:47:09 VAX-11 Bliss-32 V4.0-74 Page 4 
Oe 600 $¢ GCAS = chenge case 1228 08-13Re 93:35: 2 DISKSVMSMASTER: CEDT.SRCJCHMCHGC.BLI;1 . (3) | 
; 150 cP | 
; CHAR; | 
§ CP = FC; | 
i 


WHILE CHSPTR_NEQ (.CP, .LC) DO 
BEGIN 
UPPORT_VT220 
IF (EDTSSB_CHAR_INFO CCHSRCHAR (.CP), 0, 0, 2, 0] NEQ 0) ! If this is a letter 


CHAR = CHSRCHAR (.CP); | 
IF _CCC.CHAR GEQ XC°A') AND (.CHAR LEQ 2C'Z")) OR ((.CHAR GEQ XC'a') AND (.CHAR LEQ XC'2"))) | 
XFI | 


WWWWIWWIInnorononononononung tt 
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%1F SUPPORT_WPS 
ZTHEN 
CASE -EDTSSG_CAS_TYP FROM CASE_K_CHGC TO CASE_K_CHGL OF 


CCASE_K_CHGC) : 
2FI 


Invert case 
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CHSWCHAR (CHSRCHAR (.CP) XOR 32, .CP); 


i 
OOCOCOOCOCOOSOSOSCOSSOOSCOOCOCCSOCOCOSOOCOOOCOOOOOOOOOOOOOoOOoOO mm 


%1F SUPPORT_WPS 
ZTHEN 


e CCASE_K_CHGU) : 
Force to upper case | 
: CHSWCHAR (CHSRCHAR (.CP) AND ( NOT 32), .CP); | 
} 
| 


SSRISARANALSSSVSARANASSSLSALETISSEN 


CCASE_K_CHGLJ : 
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SNS NNN 
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oooovo 
MEWN 


65 ' Force to lower case 
196 876 !- 
197 76 CHSWCHAR (CHSRCHAR (.CP) OR 32, .CP): 
198 0768 
199 0769 COUTRANGE) : 
00 gf 0 ASSERT (0); 
01 771 TES; 
4 re 

77 ZF 1 

774 | 
05 0775 CP = CH$PLUS (.CP, 1); 
06 0776 END; 


eaten ians : . 
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EDTSCHMCHGC EDTSCHMCHGC = change case 18-56 =1984 23:47:09 VAX-11 Bliss-32 V4.0-74 Pa 5 
v04= EDISSCHG CAS - chenge case 122808=138¢ 43:32: 2 NT EKSVMGMASTERSCEOT SRCTCHMCHGC..BLI:1 ” (3) 
; 207 Orr? : 
; 208 778 END; ! of routine EDTS$CHG_CAS 


TITLE EDTSCHMCHGC EDTSCHMCHGC - change case 
IDENT \v04-000\ 

EXTRN EDT$$G 

-EXTRN EDTSSIN 


~PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 00000 .ENTRY EDTSSCHG_CAS, Save R2 : 0665 
52 04 Ac DO 00002 MOVL FC, CP + 0723 
08 AC 3¢ D1 00006 1$ CMPL = CP, _ LC + 0725 
13 0000A BEQL «6 7$ ; 
50 62 9A 0000C MOVZBL (CP), RO + 0731 
03 0000000060040 33 0000F ITB ‘ED T$$B_CHAR_INFOCROJ, #3 : 
24 13 00017 EOL ~=Ss«é6SS ; 
02 01 000000006 60 CF 00019 CASEL EDT$$G_CAS_TYP, #1, #2 : 0767 
0019 0014 O00F 00021 2$: WORD $$-28.° : 
5$-2$- : 
000000006 00 00 FB 00027 CALLS #0, EDTSSINTER_ERR : 0770 
OD 11 0002E BRB : 0767 
62 20 8C 00030 3s: XORB2 #32, (CP) : 0752 
08 11 00033 $ : 0767 
62 20 8A 00035 4$: BICB2 #32, (CP) : 0761 
03 11 00038 BRB : 0767 
62 20 88 O003A S$: BISB2 #32, (CP) : 
52 D6 0003D 6S: INCL CP : 0775 
CS 11 0003F BRB 1$ : 0725 
04 00041 7$ RET : 0778 


; Routine Size: 66 bytes, Routine Base: _EDTSCODE + 0000 


CAS_TYP, EDTS$B_CHAR_INFO 
TER-ERR 
0779 1 
0780 1 !<BLF/PAGE> 
| 
| 
| 


EDTSCHMCHGC EDTSCHMCHGC = change case 15-Sep-1984 7:09 VAX-11 Bliss-32 V4.0-74 
v04- EDTSSCHG_CAS - chenge case 14- =fep- 198 935 :22:22 DISKSVMSMASTER: CEDT.SRCJCHMCHGC.BLI;1 gege 
H 1 781 1 END ! of dule EDTSCHMCHGC 
318 Orbe } of modu 
14 7 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: -EDTSCODE 66 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Ps es SS. Re ee enn Syabels. soosose- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 5 1 40 00:00.2 
: ~$255$DUA28 t EEDT - SRC SPSECTS -L 3271 2 1 50 7 00:00.1 
3 _$255$DUA28: EDT SRE JTRANSLATE 4.32; 1 6 0 0 57 00:00.1 
> 7$255$DUA28:CEDT.SRCISUPPORTS.L32; 1 2 2 100 5 00:00.1 
PY COMMAND QUALIFIERS 
; FL IER/OHE CROAT FELD, NET LAL, - OPT EAE TE) AUBTRACERACEAL ESe4, EES: CUNT NOL PUR I“OR Ss CNEL MSRC$: CHMCHGC .BLI/UPDATE=(ENHS$: CHMCHGC 
Size: 66 code + 0 data bytes 
Run Time: 00:11.5 


Elapsed Time: 00:13.7 
Lines/CPU Min: 409 
Lexemes/CPU-Min: 12151 
pom | Used: 70 pages 
Compilation Complete 
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